home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / SPIRAL.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  208 b   |  22 lines
  1.  
  2. to spiral(len,turn,max)
  3. {
  4. int i
  5.  
  6. for i = len to max
  7.     {
  8.     right(turn)
  9.     forward(i)
  10.     }
  11. }
  12.  
  13. int color
  14.  
  15. tographics()
  16. for color = 4 to 10
  17.     {
  18.     pencolor(color)
  19.     spiral(1,color+20,35)
  20.     }
  21. waitkey()
  22.